home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / date / adxdown.int < prev    next >
Text File  |  1996-04-08  |  2KB  |  54 lines
  1. {$G+,X+,F+}
  2.  
  3. {Conditional defines that may affect this unit}
  4. {$I AWDEFINE.INC}
  5.  
  6. {*********************************************************}
  7. {*                   ADXDOWN.PAS 1.01                    *}
  8. {*        Copyright (c) TurboPower Software 1995         *}
  9. {*                 All rights reserved.                  *}
  10. {*********************************************************}
  11.  
  12. unit ADXDown;
  13.  
  14. interface
  15.  
  16. uses
  17.   SysUtils, WinTypes, WinProcs, Messages,
  18.   Classes, Graphics, Controls,
  19.   Forms, Dialogs, StdCtrls, ExtCtrls,
  20.   AdProtcl;
  21.  
  22. type
  23.   TDownloadDialog = class(TForm)
  24.     Panel1: TPanel;
  25.     DestDirLabel: TLabel;
  26.     Directory: TEdit;
  27.     FileNameLabel: TLabel;
  28.     FileName: TEdit;
  29.     Protocols: TRadioGroup;
  30.     OK: TButton;
  31.     Cancel: TButton;
  32.     procedure OKClick(Sender: TObject);
  33.     procedure CancelClick(Sender: TObject);
  34.     procedure ProtocolsClick(Sender: TObject);
  35.   public
  36.     function GetDestDirectory : String;
  37.     procedure SetDestDirectory(NewDir : String);
  38.     function GetReceiveName : String;
  39.     procedure SetReceiveName(NewName : String);
  40.     function GetProtocol : TProtocolType;
  41.     procedure SetProtocol(NewProt : TProtocolType);
  42.  
  43.     property DestDirectory : String
  44.       read GetDestDirectory write SetDestDirectory;
  45.     property ReceiveName : String
  46.       read GetReceiveName write SetReceiveName;
  47.     property Protocol : TProtocolType
  48.       read GetProtocol write SetProtocol;
  49.   end;
  50.  
  51. var
  52.   DownloadDialog: TDownloadDialog;
  53.  
  54.